home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -in_the_mag- / pdselect / awnp / awnp-docs / demos / test_the_host.rx < prev    next >
Text File  |  2000-02-16  |  976b  |  60 lines
  1. /*
  2. Script to send some commands to the testhost
  3. */
  4.  
  5. options results
  6. if ~show('L','rexxsupport.library') then
  7. if ~addlib('rexxsupport.library',0,-30,0) then
  8. exit(20)
  9.  
  10. if show('p','TESTHOST') then do
  11.  
  12. say
  13. say "Sending command 'Date' ."
  14. address TESTHOST date
  15. if rc=0 then say result
  16. else say rc
  17. say
  18.  
  19. delay(100)
  20. say "Sending command 'Author' ."
  21. address TESTHOST Author
  22. if rc=0 then say result
  23. else say rc
  24. say
  25.  
  26. delay(100)
  27. say "Sending command 'add 1 2' ."
  28. address TESTHOST add 1 2
  29. if rc=0 then say result
  30. else say rc
  31. say
  32.  
  33. delay(100)
  34. say "Sending command 'add 1' ."
  35. address TESTHOST add 1
  36. if rc=0 then say result
  37. else say rc
  38. say
  39.  
  40. delay(100)
  41. say "Sending command 'add 123 456' ."
  42. address TESTHOST add 123  456
  43. if rc=0 then say result
  44. else say rc
  45. say
  46.  
  47. /*delay(100)
  48. say "Sending command 'quit' ."
  49. address TESTHOST quit
  50. if rc=0 then say result
  51. else say rc
  52. say
  53. */
  54.  
  55. delay(200)
  56. end
  57. else do
  58.  say "Arexx Host 'TESTHOST' not found"
  59. say " You must run 'Host.rx' before running this script"
  60. end